(dired-get-filename): Get rid of text props from name.

diff --git a/lisp/dired.el b/lisp/dired.el
index ba3877683a7a03bb6b7403640da2b7ce93b7a0ef..8d7c76ab08c002ff9d488a4269223253c17feadb 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1094,7 +1094,7 @@ Optional arg NO-ERROR-IF-NOT-FILEP means return nil if no filename on
       (if (setq p1 (dired-move-to-filename (not no-error-if-not-filep)))
          (setq p2 (dired-move-to-end-of-filename no-error-if-not-filep))))
     ;; nil if no file on this line, but no-error-if-not-filep is t:
-    (if (setq file (and p1 p2 (buffer-substring p1 p2)))
+    (if (setq file (and p1 p2 (format "%s" (buffer-substring p1 p2))))
        ;; Check if ls quoted the names, and unquote them.
        ;; Using read to unquote is much faster than substituting
        ;; \007 (4 chars) -> ^G  (1 char) etc. in a lisp loop.